home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 19 / Mac Magazin and MacEasy Magazine CD - Issue 19.iso / Wissenschaft & Technik / Open Prolog / Samples / Drawing Demo / Open Prolog Startup < prev    next >
Text File  |  1992-05-25  |  173b  |  10 lines
  1. :-['draw trial'].
  2. :-repeat,
  3. 'system$random'(300,Wr),
  4. 'system$random'(240,Hr),
  5. W is 300+Wr,
  6. H is 200+Hr,
  7. 'system$random'(400,Tr),
  8. T is Tr+100,
  9. trial(W,H,T),draw(2,0,0),fail.
  10.